home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / pc_board / pcbmail1.zip / PCBMAIL.PPS < prev    next >
Text File  |  1993-06-01  |  2KB  |  76 lines
  1. STRING  PromptText, Text, Report, WantIt, Aborted
  2. STRING  Prompt676, Prompt677, Prompt679, Prompt680, Prompt685, Prompt686
  3. INTEGER Prompt
  4.  
  5. Text = ""               ; Clear it for later tests
  6. PromptText = ""         ; Clear it for later tests
  7. WantIt = "Y"            ; Assume a Default
  8. GETTOKEN Prompt         ;
  9. GETTOKEN PromptText     ;
  10.  
  11. FOPEN 1, PPEPATH()+PPENAME()+".CNF", O_RD, S_DN
  12.    FGET 1, Report
  13.    FGET 1, Aborted
  14.    FGET 1, Prompt676
  15.    FGET 1, Prompt677
  16.    FGET 1, Prompt679
  17.    FGET 1, Prompt680
  18.    FGET 1, Prompt685
  19.    FGET 1, Prompt686
  20. FCLOSE 1
  21.  
  22. ;PRINTLN Prompt
  23.  
  24. IF (Prompt = 676) THEN
  25.    PRINTLN Prompt676
  26. ELSEIF (Prompt = 0) THEN
  27.    NEWLINE
  28.    INPUTYN Report, WantIt, DEFCOLOR()
  29.    NEWLINE
  30.    IF (!WantIt = "Y") THEN
  31.       FCREATE 1, "ABORTQWK", O_WR, S_DB
  32.       FCLOSE 1
  33.    ELSE
  34.       PRINTLN Prompt676
  35.    END IF
  36. ELSE IF (Prompt = 677) THEN
  37.    IF (EXIST("ABORTQWK")) THEN
  38.       DELETE "ABORTQWK"
  39.       IF (Aborted <> "") THEN
  40.          PRINTLN Aborted
  41.          LOG Aborted, 0
  42.       END IF
  43.    ELSE
  44.       PRINTLN Prompt677
  45.    END IF
  46. ELSE IF (Prompt = 679) THEN
  47.    PRINTLN Prompt679
  48. ELSE IF (Prompt = 680) THEN
  49.    Text = Prompt680
  50. ELSE IF (Prompt = 685) THEN
  51.    Text = Prompt685
  52. ELSE IF (Prompt = 686) THEN
  53.    Text = Prompt686
  54. END IF
  55.  
  56. IF (Text = "") THEN
  57.    WRUSYS
  58. ELSE
  59.    RDUSYS
  60.    IF (EXIST("PCBMAIL.TXT")) THEN
  61.       FOPEN 1, "PCBMAIL.TXT", O_RD, S_DN
  62.          Report = "-"
  63.          WHILE (Report <> "") DO
  64.             FGET 1, Report
  65.             IF (Report <> "") PRINTLN Report
  66.          END WHILE
  67.       FCLOSE 1
  68.       DELETE "PCBMAIL.TXT"
  69.    END IF
  70.    PRINTLN
  71.    PRINTLN Text
  72.    IF (PromptText = "") LOG Text, 0
  73. END IF
  74.  
  75. END
  76.